home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / PEPSIBOOGIE.SDA / PEPSI SPIN (.txt) < prev   
Commodore BASIC  |  2019-04-13  |  876b  |  33 lines
  1. 100 IFA>0THEN200
  2. 110 POKE53280,0:POKE53281,0
  3. 120 PRINT"[147]  'PEPSI SPIN' MINI MOVIE BY KOVARSKI"
  4. 130 PRINT" SHORT INSTRUCTIONS-"
  5. 140 PRINT" PRESS 'S' TO SLOW DOWN MOVIE"
  6. 150 PRINT" PRESS 'F' TO SPEED UP MOVIE"
  7. 160 PRINT" (YOU MAY HAVE TO PRESS THEM"
  8. 170 PRINT"  REPEATEDLY TO CHANGE SPEED)
  9. 180 [153]"  RUN/STOP & RESTORE TO QUIT
  10. 190 PRINT" WAIT..."
  11. 200 C$=" LOADING SCREEN CLEARING ML"
  12. 210 S$=" LOADING SCREEN NUMBER "
  13. 220 ONAGOTO240,250,260,270,280
  14. 230 A=A+1:PRINTC$:LOAD"COLORSET",8,1
  15. 240 A=A+1:PRINTS$;"1":LOAD"PEPSI 1",8,1
  16. 250 A=A+1:PRINTS$;"2":LOAD"PEPSI 2",8,1
  17. 260 A=A+1:PRINTS$;"3":LOAD"PEPSI 3",8,1
  18. 270 A=A+1:PRINTS$;"4":LOAD"PEPSI 4",8,1
  19. 280 PRINT"  DONE! PRESS ANY KEY TO START [145]":GETA$:IFA$="" THEN280
  20. 290 POKE49233,120: REM SET SCREEN COLOR
  21. 300 SYS 49152: REM SYS TO CLEAR SCREEN
  22. 310 POKE53265,59:POKE53272,29
  23. 320 PRINT""
  24. 330 D=-1:K=13
  25. 340 P=199
  26. 350 POKE56576,P
  27. 360 FORA=1TOK
  28. 370 GETQ$:IFQ$="F"THENK=K-1:GOTO370
  29. 380 IFQ$="S"THENK=K+1
  30. 390 NEXT
  31. 400 P=P+D:IF(P<196)THEN P=200:GOTO400
  32. 410 GOTO350
  33.